program namelist

    implicit none
    integer :: a, b(2)
    namelist /mylist/ a, b

    a = 1; b = 2

    write (*, nml=mylist)

end program namelist
!> &MYLIST
!>  A=1          ,
!>  B= 2*2          ,
!>  /